Міністерство освіти і науки, молоді та спорту України Вінницький національний технічний університет Інститут Інформаційних Технологій та Комп’ютерної Інженерії Лабараторна робота № 1 Тема: Основи розробки програмного забезпечення за допомогою мови програмування Pascal.  м.Вінниця 2012 Мета: Вивчення основної структури мови програмування Pascal. Завдання: 6. Визначення кількості цифри Х в одновимірному масиві. program MasivX; uses crt; var A,B:array [1..50] of integer; i,x:integer; function max(x:integer):integer; var i,rezult:integer; begin rezult:=A[1]; for i:=2 to x do if A[i]>rezult then rezult:=A[i]; max:=rezult; end; begin writeln('Vvod massiv:'); write('Razmer massiva "x": '); readln(x); for i:=1 to x do A[i]:=0+random(49); clrscr; writeln('Massiv:'); write('A:'); for i:=1 to x do write(A[i],' '); writeln; writeln('Preobrazovannyi massiv:'); for i:=1 to x do B[i]:=A[i]-max(x); write('B:'); for i:=1 to x do write(B[i],' '); readln; end.  /// Висновок На данній лабораторній роботі я практично засвоїв основні структури мови програмування Pascal.